Option Explicit
Sub I_Sample002()
    Worksheets(1).PageSetup.PrintArea = "$A$1:$E$20"	'wCLd
    'Worksheets(1).PageSetup.PrintArea = ""		'Ѱ
End Sub
